home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 38
/
038.d81
/
jupiter jump
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
5KB
|
140 lines
5 poke53248+21,.
10 ifa=.thena=1:load"jj.spr",8,1
20 hs=.
50 v=53248:pokev+21,.:sc=0:lv=1:lp=0:sh=3:sd=54272:rm=10
70 gosub800:gosub1000:poke53280,.:poke53281,.
75 pokev+39,1:pokev+40,13:pokev+41,10:pokev+42,14
80 print"[147]":pokev+21,0:printtab(2)"[159] score "tab(24)"[158] level "
90 printtab(3)sctab(27)lv:printtab(2)"[150] high "tab(24)"[154] ships "
100 printtab(3)""hstab(27)sh
110 pokev+16,0:pokev+0,144:pokev+1,50:pokev+2,255:pokev+3,138:pokev+4,144
120 pokev+5,229:pokev+6,24:pokev+7,138:pokev+21,31
130 gosub700
140 yn=50:xe=255:ys=229:xw=24
142 print""tab(27)lv
145 iflv>15thene=14:n=22:w=18:s=int(rnd(5)*12)+12:goto195
150 iflv>3thene=int(rnd(5)*9)+9:s=8:w=12:n=int(rnd(6)*14)+12:goto195
155 iflv>1thenn=int(rnd(5)*6)+4:s=6:e=int(rnd(6)*8)+4:w=6:goto195
160 n=2:s=3:w=2:e=3
195 w1=peek(v+30)
200 pokev+1,yn:pokev+2,xe:pokev+5,ys:pokev+6,xw
202 lp=lp+1:iflp=40thenlv=lv+1:lp=0:goto110
205 jy=peek(56320)and15
210 ifjy=7thenpoke2044,210
211 ifjy=11thenpoke2044,211
212 ifjy=13thenpoke2044,209
213 ifjy=14thenpoke2044,208
214 goto400
215 yn=yn+n:xe=xe-e:ys=ys-s:xw=xw+w
218 w1=peek(v+30):ifw1>16then600
220 goto200
400 z=212-(peek(2044)):onzgoto410,440,470,500
410 print"[150]":tb=15
412 fort=1to10:printtab(tb)"[163][145]":tb=tb-1:next
415 w2=peek(v+31):ifw2=8thenc=42:gosub550
420 print" ":pokev+6,24:xw=24:pokev+42,14
425 w2=peek(v+31):w1=peek(v+30):goto215
440 print"[150]":tb=20
442 fort=1to10:printtab(tb)"[163][145]":tb=tb+1:next
445 w2=peek(v+31):ifw2=2thenc=40:gosub550
450 print"[150]"tab(20)" "
455 pokev+2,255:xe=255:pokev+40,13
460 w2=peek(v+31):w1=peek(v+30):goto215
470 print"[150]":fort=1to8:printtab(18)"[180]":next
475 w2=peek(v+31):ifw2=4thenc=41:gosub550
480 print"":fort=1to8:printtab(18)" ":next
485 pokev+5,229:ys=229:pokev+41,10
490 w2=peek(v+31):w1=peek(v+30):goto215
500 print"[150]":fort=1to8:printtab(18)"[180][145][145]":next
505 w2=peek(v+31):ifw2=1thenc=39:gosub550
510 print"[150]":fort=1to8:printtab(18)" [145][145]":next
515 pokev+1,50:yn=50:pokev+39,1
520 w2=peek(v+31):w1=peek(v+30):goto215
550 pokev+c,2:fort=0to20:next:pokev+c,1:pokesd+11,129:fort=0to20:next
552 pokesd+11,128
555 pokev+c,15:pokev+c,12:pokev+c,11:pokev+c,0
560 sc=sc+5+lv:print""tab(3)sc
565 return
600 fori=0to24:pokesd+i,0:next
602 ifw1=17thenx=2040:goto620
604 ifw1=18thenx=2041:goto620
606 ifw1=20thenx=2042:goto620
608 x=2043:goto620
620 pokev+43,2:pokesd+24,143:pokesd+5,16:pokesd+19,16:pokesd+6,252
622 pokesd+20,249:pokesd+4,21:pokesd+18,17:pokesd+1,68:pokesd+15,42
624 fori=0to200:next:pokesd+4,20:pokesd+18,16:fori=0to400:next:pokev+43,0
626 l=200
628 fort=0to80:pokex,l:l=l+1:ifl=208thenl=200
630 next
632 sh=sh-1:print""tab(27)sh:ifsh=0then650
634 pokex,200:pokev+43,15:goto110
650 fori=0to24:pokesd+i,0:next
652 pokesd+24,15:pokesd+5,80:pokesd+6,243:pokesd+3,7
654 forj=70to20step-1:pokesd+4,65:pokesd+1,j:fori=0to030:next:pokesd+4,64
656 fori=0to20:next:next
658 pokev+0,144:pokev+1,50:pokev+2,255:pokev+3,138:pokev+4,144
660 pokev+5,229:pokev+6,24:pokev+7,138
662 fort=0to30:print"[159]"tab(12)" "
664 print""tab(12)" game over ":nextt
665 ifsc>hsthenhs=sc
668 print""hs
670 fora=1to2000:next:goto50
682 sc=0:lv=1:lp=0:sh=3:pokev+43,15:goto80
699 rem choreography
700 restore
702 fori=0to24:pokesd+i,0:next
704 pokesd+1,15:pokesd+5,16:pokesd+6,240
705 reada:ifa=0then715
710 forx=2040to2043:pokex,a:next:pokesd+15,rm:pokesd+24,31:pokesd+4,21
712 rm=rm+1:ifrm=20thenrm=10
713 goto705
715 fori=0to24:pokesd+i,0:next
716 pokesd+24,15:pokesd+12,160:pokesd+13,252:pokesd+8,80:pokesd+7,40
718 pokesd+11,128:return
720 data 200,201,202,203,202,204,200,204,202,203,202,201,200
730 data 205,206,207,200,207,206,205,200
740 data 200,201,202,203,202,204,200,204,202,203,202,201,200,0
800 poke53281,14:poke53280,14
810 print"[147][153][213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]";
812 fora=1to23:print"[221]"spc(38)"[221]";:next
814 print"[202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203][157][148][192]"
816 fora=217to242:pokea,peek(a)or128:next
818 print" loadstar presents:"
820 printtab(19)"the":printtab(9)" "tab(20)" "
825 printtab(8)" "tab(19)" [146] "
830 printtab(9)" [146] [146] [146] [146] [146] [146] [146] "
835 printtab(8)" [146] [146][184] "
840 printtab(7)" [146] [146] "
845 printtab(7)" [146] [146] [146] [146] [146] [146] [146]"
850 printtab(15)" "
860 printtab(14)" ":printtab(13)" "
865 printtab(14)" [146] [146] [146] [223][146] [169][146] "
870 printtab(13)" [223] "
875 printtab(12)" "
880 printtab(12)" [146] [146] [146] [146] ":printtab(24)" "
882 print" by: james c. hilty"
884 print" copyright 1987"
900 forx=2040to2043:pokex,200:next:pokev+39,1:pokev+40,1:pokev+41,6
910 pokev+42,6:pokev+0,45:pokev+1,150:pokev+16,6:pokev+2,25:pokev+3,150
920 pokev+4,20:pokev+5,155:pokev+6,40:pokev+7,155:pokev+29,15:pokev+43,15
930 pokev+8,156:pokev+9,138:poke2044,208:pokev+21,15
931 if(mm)thenprint:print:goto940
933 print" press space to continue.":mm=1
935 ifpeek(203)<>60then935
937 print"[145][145][145] "
938 print" "
940 gosub700
950 return
1000 print"[145][145][145] p - play jupiter jump"
1010 print" q - quit"
1020 print" press p or q."
1030 a=peek(203):ifa<>41anda<>62then1030
1040 ifa=41thenreturn
1050 gosub60000:goto1020
60000 print"[145] are you sure you want to quit? (y/n)"
60010 a=peek(203):ifa<>25anda<>39then60010
60020 ifa=39thenprint"[145] [145]":return
60030 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
60040 ifer<>63thenend
60050 pokev+21,.:load"hello connect",8